# Этот файл может помочь в создании структуры файлов с изображениями, используемыми классом AntispamTuringCaptcha.
# 1. Найдите и скачайте программу font2gif.zip
# 2. Запустите её и создайте наборы символов, которые будут использоваться в тесте Тюринга.
#    При генерации файлов используйте в качестве имени файлов ASCII коды и используйте буквы чёрного цвета.
#    Если набор используемых символов выходит из диапазона [a-zA-Z0-9], то добавьте новые символы в таблицу $tReplace
# 3. Скопируйте каталоги с создаными наборами символов в одну директорию, например:
#    /../data/capture_src/
#    /../data/capture_src/arial/
#    /../data/capture_src/arial/img_char/
#    /../data/capture_src/tahoma/
#    /../data/capture_src/tahoma/img_char/
#    итд
# 4. При необходимосте исправьте $sDirSrc и $sDirDest
# 5. Выполните этот файл. Он скопирует всё в структуру, которую понимает класс AntispamTuringCaptcha:
#    /../data/capture/0/
#    /../data/capture/0/arial_1.gif
#    /../data/capture/0/tahoma_1.gif
#    /../data/capture/1/
#    /../data/capture/1/arial_1.gif
#    /../data/capture/1/tahoma_1.gif
#    итд

@USE
FileSystem.p


@main[]
$sDirSrc[/../data/captcha_src]
$sDirDest[/../data/captcha]

^FileSystem:dirDelete[$sDirDest;$.bRecursive(true)]
$tFont[^file:list[$sDirSrc]]
^tFont.menu{
	$sFontName[$tFont.name]
	$sSrc[$sDirSrc/$sFontName/img_char]
	$tChar[^file:list[$sSrc]]
	^tChar.menu{
		$sChar[^tChar.name.match[^^(\d+)\.gif^$][]{^match.1.replace[$tReplace]}]
		$sChar[^sChar.lower[]]
		$n(1)
		^while(-f "$sDirDest/$sChar/${sFontName}_${n}.gif"){
			^n.inc(1)
		}
		^FileSystem:copy[$sSrc/$tChar.name;$sDirDest/$sChar/${sFontName}_${n}.gif]
	}
}
done.



@auto[]
$tReplace[^table::create{a	b
48	0
49	1
50	2
51	3
52	4
53	5
54	6
55	7
56	8
57	9
65	A
66	B
67	C
68	D
69	E
70	F
71	G
72	H
73	I
74	J
75	K
76	L
77	M
78	N
79	O
80	P
81	Q
82	R
83	S
84	T
85	U
86	V
87	W
88	X
89	Y
90	Z
97	a
98	b
99	c
100	d
101	e
102	f
103	g
104	h
105	i
106	j
107	k
108	l
109	m
110	n
111	o
112	p
113	q
114	r
115	s
116	t
117	u
118	v
119	w
120	x
121	y
122	z
}]
